﻿Imports System.Collections.Generic
Module Module1
  Sub Main()
    Dim lista As New List(Of String)
    lista.Add("1")
    lista.Add("2")
    lista.Add("3")
    lista.Add("4")
    Console.WriteLine("3° elemento " & _
        "del primo esempio: " _
        & lista.Item(2))
    Console.WriteLine("Capacità " & _
        "prima di Clear: " & _
        lista.Capacity)
    lista.Clear()
    Console.WriteLine("Capacità " & _
        "dopo Clear: " & _
        lista.Capacity)
    lista.Capacity = 0
    Console.WriteLine("Capacità " & _
        "dopo Capacity=0: " & _
        lista.Capacity)
    Console.WriteLine()

    lista = New List(Of String)(2)
    lista.Add("10")
    lista.Add("20")
    lista.Add("30")
    lista.Add("40")
    Console.WriteLine("3° elemento " & _
        "del secondo esempio: " & _
        lista.Item(2))
    lista.Reverse()
    Console.Write("Lista invertita:  ")
    For Each elemento As String In lista
      Console.Write(elemento & " ")
    Next
    Console.WriteLine()
    Console.WriteLine()

    Dim elenco() As String = _
        {"100", "200", "300", "400"}
    lista = New List(Of String)(elenco)
    Console.WriteLine("3° elemento " & _
        "del terzo esempio: " & _
        lista.Item(2))
    Console.WriteLine()

    Dim matrice() As String
    matrice = lista.ToArray
    Dim lista2 As _
        New List(Of String)(matrice)
    Console.WriteLine("3° elemento " & _
        "della lista copiata: " & _
        lista2.Item(2))
    Console.ReadLine()
  End Sub
End Module
